-- card: 2859 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Main Menu
----- HyperTalk script -----
on opencard
  global a,lastday
  put lastday into field "laston"
  put the abbrev date into field "now"
  hide msg
  put "Wait for the All Clear"
  put the seconds into starttime
  put 0 into a

end opencard

on idle
  global port,starttime,a
  put the time into field 4
  if SPortHasChar(port) then
    put empty into reslts
    put recvUpTo(port,return,2,false,false) into newIn
    put newIn after reslts
    if the length of reslts >0 then
      if a<>1 then
        put reslts after card field 1
      end if
      if card field 1 contains "ges." then
        put 1 into a
      end if
      if reslts contains "con" then sendSPort port,false,return
      if reslts contains "to con" then sendSPort port,false,return
      if reslts contains "key to" then sendSPort port,false,return
      if reslts contains "Main M" then
        answer "Ready to go to Areas"
        hide MSG
      end if
      if reslts contains "CTRL-C" then sendSPort port,false,"ç"&return
    end if
  end if
end idle


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=79 top=191 right=213 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EMail
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"e"&return
  go card "Email Menu"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=204 top=191 right=213 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Files
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"f"&return
  go card "File Menu"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=305 right=327 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Log off
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"g"&return
  answer "What'll it be?" with "Yes, bye" or "NO WAIT!!"
  if it="Yes, bye" then
    sendsPort port,false,"y"&return
    put empty into card field 1
    go card 1
  else if it="NO WAIT!!" then sendSPort port,false,"n"&return
  else sendSPort port,false,"a"&return

end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=57 top=67 right=182 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=328 top=191 right=213 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"i"&return
  go card "Info Menu"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "info"
  show button "more info"
end mouseUp



-- part 7 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=83 top=93 right=191 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: info
----- HyperTalk script -----
on mouseup
  hide card field "info"
  hide button "more info"
end mouseup


-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=255 top=164 right=180 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: more info
----- HyperTalk script -----
on mouseUp
  show card field "more info"
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=89 top=111 right=194 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: more info
----- HyperTalk script -----
on mouseup
  hide card field "more info"
end mouseup


-- part contents for background part 5
----- text -----
10:17 PM

-- part contents for background part 1
----- text -----





Sat, Jul 2, 1988, 6:52 PM
Thu, Sep 8, 1988, 8:07 PM

-- part contents for background part 4
----- text -----
Sun, Sep 25, 1988

-- part contents for card part 7
----- text -----
Welcome to the NCMC TCS. I hope you like what you see and call back often.  
A couple notes about this stack.  Buttons that are "rounded rectangles" indicate that they are a popupmenu. So hold down the mousebutton until you see the menu. 
Also, if you're a sysop, contact me (Phil Smy) about having a stack like this for your system*


-- part contents for card part 9
----- text -----
I can be contacted in the following ways:
1) By this BBS (System Operator)
2) MacNET: PSMY
3) GEnie: P.SMY
Thank you.


-- part contents for background part 3
----- text -----
Sat, Sep 24, 1988, 12:06 AM